C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


--—-—_——_—- 


J 13 


**FILE®*1D**CHMTADJ 


“7 2. Se Se ee 
~~ 2 oe eS ee eS ee 


~~ 
<> 
>> 
>> 
=—— 
a 
ps. Soe em pe 
3355 
aaaaaaaAaAalda 
S000000000 
aa aa 
aa aa 
aa aa 
aa ea 
aa oa 
aa aa 
Sl00000000000R 
2S0060000000000 
<a<<4<eaeeeecaccce 
aqqaqaqacaceetacacaacae 
<< << 
<< << 
<< << 
<< << 
<< << 
<<a << 
Ss Soe > Soe o> o> > > > > > 
<«<aq¢aqe¢ececdcactactaccae 


ee ee ee ee ee 
en ee ee ee 


HH 
HH 
HH 
HH 
HH 


HHHHHHHHHH 
HHHHHHHHHH 


PS > > 4 
zrrTt 


WMVYVYVOEYVUYYUYYY 
BYYVYYYYYUYUY 


LLLLLLLLLL 
LLLLLLLLLL 


Be Oe Be Oe Oe Be Se Be Ge Se Ge Be Ge Be Se Se Ge Fe Ss Oe oe Se Se Be Se Ss Ge Se Ge Ge Oe Se Ge Se Se Se Se Se Se Oe Se Se FHS Se os oe oe a) 


MEW OO OONAUES WN“ OOONOUSWwh— 


POPRININOPYNY — st 


EDTSCHMTADJ = tab adjust 


" 


So 
Oo 
we 


Se 


ooo 
a a ee ee ee ee ee a a a ad ad add 


Fe a tt tt 


MOOD NAOUE WN (OO ONOULS WOOO 


oo 
oo 
NG 


: 


ZTITLE 
MODULE 


"EDTSC Cet 0d = tab adjust’ 
EDTSCHMTADJ ( ' Tab adjust 
pDENT = *'v04-000' 


BEGIN 


SRR E RRA AAA E RARER EEA A RAAT E AEE AEE AEE EAAERARERAEEAEEREREEEEEE 


LARA RAE ARATE AAAS 
' 


++ 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gd 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi CENSe AND WITH THE 
Set ae OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


HER P 
TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


This module executes the change mode command TADJ. 


ENVIRONMENT: Runs at any access mode - AST reentrant 


AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
MODIFIED BY: 


! 1-002 - Regular 8 
1-005 - New screen update Ey JBS 13-Sep-1982 


1-001 = Original. DJS 04-Feb-1981. This module was created by 


eutrecs sag the routine yy the CMD from module CHANGE. YBLI. 
ze headers. JBS 04-Mar-1981 
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Declarations 
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a = Ss = bd 2 ss 2 2 2 a as SS SS a 
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XSBTTL "Declarations' 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 
FORWARD ROUTINE 


EDTSSTADJ_CMD 


INCLUDE FILES: 


REQUIRE 'EDTSRC:EDTREQ'; 


MACROS: 


NONE 


i EQUATED SYMBOLS: 


NONE 


! OWN STORAGE: 


NONE 


i EXTERNAL REFERENCES: 


In the routine 


VAX-11 Bliss-32 V4.0-7 
DISKSVMSMASTER:’ CEpT. Re CHMTADJ.BLI; ? 


: NOVALUE; ' Execute the TADJ command 


} 
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13 
EDTSCHMTADJ EDTSCHMTADJ = tab adjus 16-Sep-1984 00:13:29 VAX=-11 Bliss-32 V4.0-74 Page 3) 
v04-000 EDTSSTADJ_CMD - toh eajust 12286821 88e 99:33:23 DISKSVMSMASTERSLEDT  SRCICHMTADY .BLIs1 . (3) | 
’ 8% 654 ' MSBTTL "EDTSSTADJ_CMD = tab adjust’ | : 
; 6 6 $ 1 GLOBAL ROUTINE EDTSS$STADJ_CMD ! Tab adjust ‘ 
5 «OY 6 1 : NOVALUE = ‘ 
; «88 0658 1 ; 
; 0659 1 !++ ; 
: s S04 : FUNCTIONAL DESCRIPTION: : 
5 bees ; } This routine executes the TADJ (tabs adjust) command. | : 
; 0664 1! Compute the column of the first non-blank non-tab character. ‘ 
; WwW +084 1! Strip out all leading spaces and tabs. ‘ 
; 38 bees : } Insert enough tabs and spaces to bring us to column + EDT$$G_TADJ . ‘ 
; «98 0668 1 ! FORMAL PARAMETERS: ‘ 
; 0669 1! ; 
; 100 0670 1! NONE ‘ 
; 101 0671 1! : 
; 105 0672 1 ! IMPLICIT INPUTS: : 
; 10 0675 1! 5 
3; 104 0674 1! EDT$$G_TAB_S1Z ; 
; 105 0675 1! EDTS$G_TADJ ‘ 
; 106 0676 1! EDTS$T_LN_BUF ; 
; 107 0677 1! EDTSSA_LN_END ‘ 
; 108 0678 1! : 
; 109 0679 1 ! IMPLICIT OUTPUTS: : 
; 110 0680 1! : 
s 6995 0681 1! NONE : 
; Tie 0682 1! : 
. 3a 0685 1 ! ROUTINE VALUE: : 
> 114 0684 1! : 
s 935 0685 1! NONE : 
; 116 0686 1! : 
s Ti" 0687 1 ! SIDE EFFECTS: : 
; 108 0688 1! 
3; 119 0689 1! NONE 
: 120 0690 1! 
3; 121 0691 1 !-- 
: je 0692 1 
3 (Vee 0693 2 BEGIN 
3; 124 0694 2 | 
; 125 0695 EXTERNAL ROUTINE 
: 126 0696 EDTSSDEL_CHS : NOVALUE, ! Delete part of the current Line 
: 4 697 EDTSSMOV_TOCOL, ! Insert tabs and spaces 
3 : ; +934 EDTSSFMT_CHWID; ! Compute character size. 
; 189 0700 EXTERNAL 
; 131 44 EDT$$G_TAB_SIZ, ' Structured tab size | 
: 132 07 ; EDT$$G_TADJ, ' Count for tabs adjust. 
3; 155 070 EDTSST_LN_BUF, ! Current line buffer | 
3: 134 0704 EDTSSA_LN_END; ! End of current Line pointer 
> 135 0705 | 
; 136 0706 LOCAL 
3 137 0707 cP, 
: 138 0708 col; | 
3; 139 0709 
3: 140 0710 LABEL | 
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14 | 
EDTSCHMTADJ EDTSCHMTADJ = tab adju 1b-Sep -1984 VAX=11 Bliss=32_V Pa 5 

42000 ED TSSTADD _CMD = Ry | 14Sep eet} 7 99: 33: 3 DI SKSVMGHASTERSCEDTS Osae CHMTADJ.BLI:1 9 (3), v04 

9 OD A PUSHL ; : 

000000006 99 o3 FB p ¢ CALL fe. EDTSSFMT_CHWID : | ; 

26 11 00 a : | ; 

FF AS. OF 00088 38: BUSHAB ~YCP) : 0738 ; 

000000006 00 83 PB began CALS EDTSSDEL_CHS : ; 

50 000000006 00 000000006 09 cS Sboz, MULL Ebtssc TAB_SIZ, EDTS$$G_TADJ, RO + 0739 : 

6042 9F 90050 pugiaa eROIEC OI : : 

000000006 00 01 FB 0005 CALLS #1, EDTS$MOV_TOCOL : : 

04 O005A 4$: RET + 0741 : 


| 
| 
; Routine Size: 91 bytes, Routine Base: _EDTSCODE + 0000 | 
544 1 | 
0743 1 !<BLF/PAGE> | 


14 
EDTSCHMTADJ EDTSCHMTADJ - tab adjus 1§- -Sep-1984 VAX-11 Bliss-32 V4.0-74 
104-000 EDTSSTADJ_CMD hy | oe 14- Sep- 198 99: 33:23 DISKSVMSMASTER:CEDT.SRCJCHMTADJ.BLI; "? 
, 1 0744 1 END ! of module EDTSCHMTADJ 
: 17% 745 1 ch st 
Wes 746 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 91 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
eerie es ee ee Sywto(s soos Pages Processing 
3 File Total Loaded Percent Mapped Time 
: -$255$DUA28: CEDT.SRCJEDT.L32;1 377 2 0 40 00:00.2 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


PL ESS/CHECE OCS LELD NET EAL OPT IALZE) /MOTRACEBACK/L S04. 155 1 CONT AD S/OR JOOS JS 1 CHATADS MSRC$:CHMTADJ.BLI/UPDATE=(ENHS: CHMTADJ 


Size: 91 code + 0 data bytes 

Run Time: 0 

Elapsed Time: 

Lines/CPU Min: 

"een Aah pe 
ry Used: 69 pages 

—_ ation Complete 
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